home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1988 / muledna.s < prev    next >
Text File  |  1989-10-04  |  2KB  |  53 lines
  1. ; NOTE: This is a shortened version of Mule DNA, one of the '88
  2. ;  finalists. The complete version can be found in DMDMULE.RED.
  3. ; 
  4. ;Mule DNA
  5. ;by Douglas McDaniels
  6. ;United States of America
  7. ;
  8. VA            DAT                    1588
  9. VB            DAT                    1337
  10. VC            DAT                    123
  11. GOTCHA        SPL,                   GOTCHA
  12. START         SPL,                 17
  13. SKIPA         CMP    <VA,          <VB
  14.               MOV    GOTCHA,      @VA
  15.               CMP    <VA,          <VB
  16.               MOV     GOTCHA,      @VB
  17.               DJN     SKIPA,          VC
  18. SKIPC         MOV    #1589,          VA
  19.               MOV    #168,            VC
  20. SKIPB         MOV      VA,          <VA
  21.               MOV      VA,          <VA
  22.               MOV      VA,          <VA
  23.               DJN      SKIPB,          VC
  24.               JMP      SKIPC
  25. ;
  26. ; #SET  COPY     1
  27. ; #SET  ONE      1588
  28. ; #SET  TWO      1337
  29. ; #REPEAT        63
  30. ; #SET  ONE      ONE+86
  31. ; #SET  TWO      TWO+86
  32. ;  
  33.               DAT                    1588    ;  1674
  34.               DAT                    1337    ;  1423
  35.               DAT                    123
  36.               SPL                    0
  37.               SPL                    17
  38.               CMP    <-5,          <-4
  39.               MOV      -3,          @-6
  40.               CMP    <-7,          <-6
  41.               MOV      -5,          @-7
  42.               DJN      -4,            -7
  43.               MOV    # 1588+1,        -10      ;  1675
  44.               MOV    # 168,          -9
  45.               MOV      -12,          <-12
  46.               MOV      -13,          <-13
  47.               MOV      -14,          <-14
  48.               DJN      -3,            -13
  49.               JMP      -6
  50. ;  
  51. ; #END
  52. ;  
  53.               END      START